'From Pharo1.3 of 16 June 2011 [Latest update: #13307] on 28 October 2011 at 2:08 pm'!TestCase subclass: #TesteApresentacao	instanceVariableNames: ''	classVariableNames: ''	poolDictionaries: ''	category: 'Jogo-Do-Laser-Testes'!!TesteApresentacao methodsFor: 'as yet unclassified' stamp: 'marcos 10/27/2011 17:15'!testApresentacao! !"-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "!TesteApresentacao class	instanceVariableNames: ''!!TesteApresentacao class methodsFor: 'as yet unclassified' stamp: 'marcos 10/27/2011 17:31'!testeExtensaoDoFormularioParaGrade	| laserGradeApp |		laserGradeApp := LaserGameApp new.		self should: laserGradeApp  tamanhoRetanguloGrade = (250@250).! !